home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / ALPHA.PLOT.SHK / ALPHA.PLOT / DOS BOSS DEMO.bas < prev    next >
BASIC Source File  |  2000-01-01  |  10KB  |  69 lines
  1. 33  REM <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>===============================<CTRL-M>DOS BOSS (DEMO)<CTRL-M>BY BERT KERSEY AND JACK CASSIDY<CTRL-M>COPYRIGHT (C) 1981<CTRL-M>BEAGLE BROS. MICRO SOFTWARE<CTRL-M>===============================<CTRL-M><CTRL-D>FP
  2. 50 SP = 111:PAUSE = 999: REM 111,999
  3. 52  REM <CTRL-M><CTRL-D>FP
  4. 55 G$ =  CHR$(7):Q$ =  CHR$(34)
  5. 100  POKE  -16300,0: TEXT : HOME : NORMAL : SPEED= SP
  6. 140  INVERSE : VTAB 1: HTAB 15: PRINT ":          :": HTAB 15: PRINT "  DOS BOSS  ": HTAB 15: PRINT ":          :": NORMAL : PRINT : HTAB 10: NORMAL : PRINT "DOS EDITOR & FORMATTER": HTAB 14:A$ = "BY BEAGLE BROS": GOSUB 9000: PRINT ".": PRINT 
  7. 150  GOSUB 9999: PRINT : SPEED= SP: PRINT "DOS BOSS GIVES YOU CONTROL OVER APPLE'S DISK OPERATING SYSTEM, ALLOWING YOU TO  RESTRUCTURE:": PRINT : HTAB 10: PRINT "- DOS COMMANDS"
  8. 155  HTAB 10: PRINT "- ERROR MESSAGES": HTAB 10: PRINT "  AND": HTAB 10: PRINT "- CATALOG DISPLAYS": PRINT : PRINT "...ACCORDING TO YOUR PREFERENCES AND    YOUR PARTICULAR APPLICATIONS."
  9. 160  PRINT : PRINT "THIS DEMONSTRATION WILL ILLUSTRATE JUST A ";:A$ = "FEW": GOSUB 9000: PRINT " OF THE POSSIBILITIES.": GOSUB 9999: GOSUB 9999
  10. 195  FOR I = 13 TO 24: HTAB 1: VTAB I: CALL  -868: VTAB 25 -I: CALL  -868: FOR J = 1 TO 50: NEXT : NEXT : SPEED= 255: INVERSE : VTAB 1: HTAB 9: PRINT " DOS COMMAND CHANGES ": SPEED= SP
  11. 200  NORMAL : PRINT : PRINT "DOS BOSS WILL PERMIT YOU TO CHANGE ANY  OF APPLE'S 28 DOS COMMANDS.": PRINT : GOSUB 9999: PRINT : PRINT "FOR EXAMPLE...": PRINT : GOSUB 9999:
  12. 210  PRINT "YOU CAN CHANGE ";:A$ = "CATALOG": GOSUB 9000: PRINT " TO ";:A$ = "CAT": GOSUB 9000: PRINT " OR ";:A$ = "MENU": GOSUB 9000: PRINT ".": PRINT : PRINT "THIS WILL SAVE KEYSTROKES EVERY TIME YOUCATALOG AND HELP PREVENT TYPING ERRORS."
  13. 220  GOSUB 9999: PRINT : PRINT : PRINT "ONE-CHARACTER COMMANDS ARE POSSIBLE TOO:":A$ = "LOAD": HTAB 9: GOSUB 9000: PRINT " CAN BE RENAMED ";:A$ = "L": GOSUB 9000: PRINT ".": PRINT 
  14. 230  HTAB 9:A$ = "EXEC": GOSUB 9000: PRINT " CAN BE RENAMED ";:A$ = "E": GOSUB 9000: PRINT ".": PRINT : PRINT : PRINT "ANYTHING YOU WANT; USE YOUR IMAGINATION!"
  15. 240  GOSUB 9999: POKE 34,6: INVERSE : PRINT : HTAB 8: PRINT " ERROR MESSAGE CHANGES ": FOR I = 1 TO 15: PRINT : NEXT : NORMAL : VTAB 10
  16. 250  SPEED= SP: PRINT "APPLE'S NORMAL DOS ERROR MESSAGE IS...": GOSUB 9999: SPEED= 255: PRINT :A$ = "     SYNTAX ERROR": GOSUB 10000: GOSUB 9999: PRINT : SPEED= SP: PRINT "WITH DOS BOSS, CHANGE IT TO": PRINT :A$ = "     DOS ERROR": GOSUB 10000
  17. 260  SPEED= SP: PRINT : PRINT "(TO DISTINGUISH IT FROM A ";:A$ = "BASIC": GOSUB 9000: PRINT " ERROR.)": GOSUB 9999: PRINT : PRINT "DOS BOSS GIVES YOU ENDLESS POSSIBILITIESFOR NOT ONLY IMPROVING DOS, BUT HAVING  A LITTLE FUN TOO...": TEXT 
  18. 262  GOSUB 9999: FOR I = 1 TO 19: PRINT : NEXT 
  19. 265  VTAB 6: PRINT "WHY NOT CHANGE...": SPEED= 255
  20. 280  PRINT :A$ = "     FILE NOT FOUND": GOSUB 10000: SPEED= SP: PRINT : PRINT "      TO": PRINT :A$ = "     TRY AGAIN!": GOSUB 10000: PRINT 
  21. 285  GOSUB 9999: PRINT "OR...": GOSUB 9999: PRINT :A$ = "     DISK FULL": GOSUB 10000: PRINT : SPEED= SP: PRINT "      TO": GOSUB 9999: PRINT :A$ = "     *** BURP!": PRINT G$;: GOSUB 10000: PRINT 
  22. 290  SPEED= SP: PRINT "DOS BOSS LETS YOU RENAME ANY DOS COMMANDOR ERROR MESSAGE ANYTHING YOU WANT!": GOSUB 9999: GOSUB 9999: FOR I = 24 TO 1  STEP  -1: VTAB I: CALL  -868: FOR J = 1 TO 55: NEXT : NEXT : VTAB 1
  23. 300  SPEED= SP: PRINT "WITH DOS BOSS, YOU CAN "Q$"SAVE-PROTECT"Q$" A PROGRAM THAT HAS BEEN RUN...": PRINT : GOSUB 9999
  24. 302  PRINT " IF SOMEONE TYPES:": PRINT : PRINT "]";: FOR I = 1 TO 200: NEXT : PRINT "SAVE (PROGRAM NAME)": PRINT : PRINT " HE WILL GET A"
  25. 310  SPEED= 255: HTAB 16: PRINT "------------";: VTAB  PEEK(37): HTAB 16:A$ = "NOT COPYABLE!": GOSUB 10000: VTAB  PEEK(37): HTAB 29: PRINT " MESSAGE."
  26. 320  SPEED= SP: PRINT : PRINT "BECAUSE YOU HAVE ALTERED THE "Q$"SAVE"Q$: PRINT "COMMAND AND APPROPRIATE ERROR MESSAGES  TO HELP PROTECT YOUR PROGRAM!"
  27. 330  PRINT : PRINT "BOOTING YOUR DISK OR RUNNING YOUR       PROGRAM IS ALL THAT IS REQUIRED TO      INSTALL ";:A$ = "YOUR": GOSUB 9000: PRINT " NEW DOS IN ";:A$ = "ANYONE'S": GOSUB 9000: PRINT " APPLE!"
  28. 340  PRINT : SPEED= SP: PRINT "THE DOS BOSS DOCUMENTATION BOOK HAS MANYEXAMPLES OF CREATIVE POSSIBILITIES.": GOSUB 9999: GOSUB 9999
  29. 400  GOSUB 9100: SPEED= SP: INVERSE : HTAB 12: PRINT " CATALOG FORMATS ": NORMAL : GOSUB 9999
  30. 405  PRINT : PRINT "APPLE'S CATALOG BECOMES MUCH MORE USEFULAND FLEXIBLE WITH DOS BOSS!": PRINT : PRINT "LET'S MAKE SOME IMPROVEMENTS WITH       DOS BOSS'S MENU FEATURES...": GOSUB 9999
  31. 450 V = 9: GOSUB 9200: PRINT "DISK VOLUME 254": PRINT : FOR I = 1 TO 500: NEXT 
  32. 460  SPEED= 222: PRINT "*A 010 HELLO": PRINT " A 051 OLD RECIPES": PRINT " I 044 STAR TREK": PRINT " T 055 ADDRESS FILE": PRINT "*T 003 NAMES FILE"
  33. 465  PRINT "*B 008 SHAPE TABLE": PRINT " B 006 HEX CONVERTER": PRINT "*A 013 MISC.INSTRUCTIONS": PRINT "*A 080 SLIPPERY DIGITS": PRINT "*I 040 NUMBERS GAME"
  34. 470  IF FLAG  THEN  RETURN 
  35. 475  GOSUB 9999
  36. 480  GOSUB 8500: VTAB 3: SPEED= SP: PRINT "DOS BOSS CAN TITLE YOUR CATALOGS BY     REPLACING APPLE'S USUALLY UNNECESSARY": PRINT Q$"DISK VOLUME"Q$" HEADING...": GOSUB 9999
  37. 490  SPEED= 255: FLASH : VTAB 11: HTAB 1: PRINT "DISK VOLUME 254";: NORMAL : FOR I = 1 TO 555: NEXT : HTAB 1: PRINT G$;"FRANK'S DISK #21";G$
  38. 500  GOSUB 9999: SPEED= SP: VTAB 7: CALL  -868: PRINT "INVERSE OR FLASHING IF YOU WANT!": SPEED= 255: GOSUB 9999: INVERSE : VTAB 11: HTAB 1: CALL  -868: PRINT "****************";: HTAB 1: FOR I = 1 TO 50: NEXT : PRINT G$;" WORK DISK A ";: CALL  -868: NORMAL : GOSUB 9999
  39. 505  SPEED= 255: GOSUB 9999: VTAB 11:A$ = "V=254": FOR I = 1 TO 6: HTAB 15: PRINT "     ";: HTAB 15: FOR J = 1 TO 50: NEXT : PRINT A$;: FOR J = 1 TO 50: NEXT : NEXT 
  40. 510  SPEED= SP: PRINT " <-WITH OR WITHOUT": HTAB 23: PRINT "VOLUME NUMBER": SPEED= 255: GOSUB 9999: VTAB 11: HTAB 15: PRINT "     ";: GOSUB 9999: CALL  -868: VTAB 12: CALL  -868
  41. 520  GOSUB 9999: SPEED= SP: GOSUB 8500: VTAB 5: HTAB 1: PRINT "FILE CODES CAN ALSO BE ALTERED.":A$ = "]]>!!--]]>": FOR J = 1 TO 2: FOR I = 13 TO 22: SPEED= 222: NORMAL : POKE 50,63 +(J >1) *192: VTAB I: HTAB 2: PRINT  MID$ (A$,I -12,1): GOSUB 8600: NEXT : NEXT : GOSUB 9999: GOSUB 9999
  42. 550  GOSUB 9999: GOSUB 8500: VTAB 5: SPEED= SP: PRINT "YOU CAN ALSO CATALOG BY FILE TYPE...":V = 9: GOSUB 9200: SPEED= 200: INVERSE : PRINT " APPLESOFT ": NORMAL 
  43. 560  PRINT " HELLO": PRINT " OLD RECIPES": PRINT " MISC.INSTRUCTIONS": PRINT " SLIPPERY DIGITS": GOSUB 9999
  44. 566  SPEED= SP: VTAB 5: CALL  -868: VTAB 4:A$ = "ALL FOUR": GOSUB 9000: PRINT " FILE TYPES IF YOU LIKE!":V = 6: GOSUB 9200
  45. 570  SPEED= 200: INVERSE : PRINT " BINARY ": NORMAL : PRINT " SHAPE TABLE": PRINT " HEX CONVERTER": PRINT : INVERSE : PRINT " TEXT ": NORMAL : PRINT " ADDRESS FILE": PRINT " NAMES FILE": PRINT 
  46. 580  INVERSE : PRINT " INTEGER ": NORMAL : PRINT " STAR TREK": PRINT " NUMBERS GAME": PRINT : INVERSE : PRINT " APPLESOFT ": NORMAL : PRINT " HELLO": PRINT " OLD RECIPES": PRINT " MISC.INSTRUCTIONS": PRINT " SLIPPERY DIGITS";
  47. 599  GOSUB 9999: GOSUB 9999: FOR I = 3 TO 7: VTAB I: HTAB 1: CALL  -868: NEXT : VTAB 3
  48. 600  SPEED= SP: PRINT "RUNNING DOS BOSS'S MENU PROGRAM WILL    CATALOG ANY DISK AND LET YOU SELECT     PROGRAMS WITH ";:A$ = "ONE KEYPRESS": GOSUB 9000: PRINT "!"
  49. 605 V = 8: GOSUB 9200
  50. 610  GOSUB 9999: VTAB 10:FLAG = 1: GOSUB 460:FLAG = 0: FOR I = 10 TO 19: NORMAL : VTAB I: HTAB 1: PRINT "     ";: INVERSE : PRINT  CHR$(I +55): NEXT : HTAB 6: PRINT " ": HTAB 6: PRINT "  SELECT:";: NORMAL : GOSUB 9999
  51. 620  SPEED= SP: VTAB 23: HTAB 1: PRINT "PRESSING ONE KEY RUNS, BRUNS OR EXECS   THE SELECTED PROGRAM AUTOMATICALLY!";: VTAB 21: GOSUB 9999: SPEED= 200
  52. 650  HTAB 38:A$ = "<-(YOU TYPE 1 LETTER.)": FOR I =  LEN(A$) TO 1  STEP  -1: PRINT  MID$ (A$,I,1);"<CTRL-H><CTRL-H>";: NEXT : FOR I = 1 TO 500: NEXT 
  53. 660  FLASH : HTAB 15: PRINT "C";G$;: GOSUB 9999: NORMAL : VTAB 12: HTAB 19: PRINT "<-(AUTOMATIC)";: HTAB 1: INVERSE : HTAB 1: SPEED= 100: PRINT " RUN   STAR TREK ": SPEED= SP
  54. 700  NORMAL : GOSUB 9999: GOSUB 9999: SPEED= SP: GOSUB 9100: PRINT "WITH YOUR DOS BOSS DISKETTE, YOU WILL   RECEIVE...": PRINT : INVERSE : PRINT " THE DOS BOSS BOOK ": NORMAL 
  55. 710  PRINT "EXCELLENTLY-WRITTEN COVERAGE OF ALL     DOS BOSS FEATURES & POSSIBILITIES--     A GREAT APPLE LEARNING TOOL!": PRINT : PRINT "PLUS...": PRINT 
  56. 720  INVERSE : PRINT " BEAGLE BROS PEEKS & POKES CHART ": NORMAL : PRINT "POKE YOUR APPLE ALL NIGHT LONG WITH THISHANDY 11X17 REFERENCE POSTER! THE MOST  USABLE PEEKS, POKES, POINTERS AND CALLS!": PRINT "PLUS...": PRINT 
  57. 730  INVERSE : PRINT " BEAGLE BROS APPLE TIP BOOK #2 ": NORMAL : PRINT "AN ENTERTAINING COLLECTION OF TRICKS,   SUGGESTIONS AND PROGRAM LISTINGS TO TRY ON YOUR APPLE. HOURS OF GOOD READING!"
  58. 750  PRINT : GOSUB 9999: GOSUB 9999: GOSUB 9999
  59. 800  FOR I = 1 TO 24: PRINT : NEXT : GOTO 100
  60. 8000  NORMAL : SPEED= 255: END 
  61. 8500  FOR I = 3 TO 8: VTAB I: HTAB 1: CALL  -868: NEXT : RETURN 
  62. 8600  FOR Z = 1 TO 6:S =  PEEK( -16336): NEXT : RETURN 
  63. 9000  SPEED= 200: FOR I = 1 TO  LEN(A$):VPOZ =  PEEK(37) +1:HPOZ =  PEEK(36) +1: VTAB VPOZ: HTAB HPOZ: PRINT  MID$ (A$,I,1);: VTAB VPOZ +1: HTAB HPOZ: PRINT "-";: VTAB VPOZ: NEXT : SPEED= SP: RETURN 
  64. 9100  FOR I = 38 TO 0  STEP  -1: POKE 32,I: POKE 33,40 -I: HOME : NEXT : RETURN 
  65. 9200  SPEED= 255: VTAB V: HTAB 1: CALL  -958: NORMAL :A$ = "]CATALOG": FOR I = 1 TO  LEN(A$): NORMAL :X$ =  MID$ (A$,I,1): PRINT X$;: FLASH : PRINT " <CTRL-H>";: FOR J = 1 TO 100 +500 *(X$ = "]"): NEXT : NEXT : NORMAL : PRINT " ": CALL  -958: PRINT : RETURN 
  66. 9999  FOR Z = 1 TO PAUSE: NEXT : RETURN 
  67. 10000 T =  PEEK(36) +1: SPEED= 255: HTAB T: PRINT A$;G$;: HTAB T: FOR I = 1 TO 15: NEXT : CALL  -868: FOR I = 1 TO 100: NEXT : HTAB T: PRINT A$: IF F2  THEN  FOR I = 1 TO PAUSE: NEXT 
  68. 10001  RETURN 
  69. 33333  REM <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>===============================<CTRL-M>DOS BOSS (DEMO)<CTRL-M>BY BERT KERSEY AND JACK CASSIDY<CTRL-M>COPYRIGHT (C) 1981<CTRL-M>BEAGLE BROS. MICRO SOFTWARE<CTRL-M>===============================